projects / emacs.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: a1cf3b9) | patch
nadvice.el: Avoid exponential blow up in interactive-form recursion
authorStefan Monnier <monnier@iro.umontreal.ca>
Sat, 13 Aug 2022 16:03:22 +0000 (12:03 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sat, 13 Aug 2022 16:04:29 +0000 (12:04 -0400)
commitdd2973bf5040d26d29a937d252eeaf2884dca9fb
treeef063a3ecb770068d823623f6446b3f3f251080dtree | snapshot
parenta1cf3b96f84794b708a9d80281d4e9deadfb610ccommit | diff
nadvice.el: Avoid exponential blow up in interactive-form recursion

* lisp/emacs-lisp/nadvice.el (advice--interactive-form): Sink the call
to `commandp` into the autoloaded function case since it's redundant in
the other branch.
(advice--make-interactive-form): Take just the interactive forms rather
than the actual functions as arguments.
(oclosure-interactive-form): Use `advice--interactive-form` rather than
`commandp` since we'd call `advice--interactive-form` afterwards anyway.
lisp/emacs-lisp/nadvice.el diff | blob | history
Unnamed repository; edit this file 'description' to name the repository.